/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / tex / inputs / semitic.sty

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 25 25 25 25 25 25 25 25 | 25 25 25 25 25 25 25 25 |%%%%%%%%|%%%%%%%%|
|00000010| 25 25 25 25 25 25 25 25 | 25 25 43 75 74 20 77 69 |%%%%%%%%|%%Cut wi|
|00000020| 74 68 20 61 20 73 68 61 | 72 70 20 61 78 65 20 68 |th a sha|rp axe h|
|00000030| 65 72 65 25 25 25 25 25 | 25 25 25 25 25 25 25 25 |ere%%%%%|%%%%%%%%|
|00000040| 25 25 25 25 25 25 25 25 | 25 25 25 25 25 25 25 25 |%%%%%%%%|%%%%%%%%|
|00000050| 0a 25 20 54 68 69 73 20 | 69 73 20 61 20 76 65 72 |.% This |is a ver|
|00000060| 79 20 73 69 6d 70 6c 65 | 20 4c 61 54 65 58 20 73 |y simple| LaTeX s|
|00000070| 75 62 73 74 79 6c 65 20 | 74 6f 20 73 65 74 20 53 |ubstyle |to set S|
|00000080| 65 6d 69 74 69 63 20 6c | 61 6e 67 75 61 67 65 73 |emitic l|anguages|
|00000090| 2e 20 49 74 20 69 73 20 | 61 20 76 65 72 79 20 0a |. It is |a very .|
|000000a0| 25 20 6d 75 63 68 20 61 | 20 68 61 63 6b 65 64 20 |% much a| hacked |
|000000b0| 48 45 42 52 45 57 2e 54 | 65 58 20 64 69 73 74 72 |HEBREW.T|eX distr|
|000000c0| 69 62 75 74 65 64 20 77 | 69 74 68 20 74 68 65 20 |ibuted w|ith the |
|000000d0| 48 65 62 72 65 77 20 66 | 6f 6e 74 73 2e 0a 25 20 |Hebrew f|onts..% |
|000000e0| 20 20 20 47 72 61 65 6d | 65 20 4d 63 4b 69 6e 73 |   Graem|e McKins|
|000000f0| 74 72 79 2c 0a 25 20 20 | 20 20 43 6f 6d 70 75 74 |try,.%  |  Comput|
|00000100| 69 6e 67 20 53 65 72 76 | 69 63 65 73 20 43 65 6e |ing Serv|ices Cen|
|00000110| 74 72 65 2c 0a 25 20 20 | 20 20 55 6e 69 76 65 72 |tre,.%  |  Univer|
|00000120| 73 69 74 79 20 6f 66 20 | 4f 74 61 67 6f 2c 0a 25 |sity of |Otago,.%|
|00000130| 20 20 20 20 44 75 6e 65 | 64 69 6e 2c 0a 25 20 20 |    Dune|din,.%  |
|00000140| 20 20 4e 65 77 20 5a 65 | 61 6c 61 6e 64 2e 0a 25 |  New Ze|aland..%|
|00000150| 20 20 20 20 45 2d 6d 61 | 69 6c 3a 20 20 67 72 61 |    E-ma|il:  gra|
|00000160| 65 6d 65 25 6f 74 61 67 | 6f 2e 61 63 2e 6e 7a 40 |eme%otag|o.ac.nz@|
|00000170| 72 65 6c 61 79 2e 63 73 | 2e 6e 65 74 0a 25 0a 25 |relay.cs|.net.%.%|
|00000180| 20 54 68 65 20 66 6f 6e | 74 73 20 77 65 72 65 20 | The fon|ts were |
|00000190| 64 65 73 69 67 6e 65 64 | 20 62 79 20 4a 61 63 71 |designed| by Jacq|
|000001a0| 75 65 73 20 47 6f 6c 64 | 62 65 72 67 3a 0a 25 20 |ues Gold|berg:.% |
|000001b0| 20 20 20 45 2d 6d 61 69 | 6c 3a 20 70 68 72 30 30 |   E-mai|l: phr00|
|000001c0| 6a 67 40 74 65 63 68 6e | 69 6f 6e 2e 62 69 74 6e |jg@techn|ion.bitn|
|000001d0| 65 74 20 20 28 77 61 74 | 63 68 20 66 6f 72 20 5a |et  (wat|ch for Z|
|000001e0| 45 52 4f 45 53 20 69 6e | 20 70 68 72 30 30 6a 67 |EROES in| phr00jg|
|000001f0| 29 0a 25 20 20 20 20 53 | 2d 6d 61 69 6c 3a 20 50 |).%    S|-mail: P|
|00000200| 72 6f 66 2e 20 4a 61 63 | 71 75 65 73 20 47 6f 6c |rof. Jac|ques Gol|
|00000210| 64 62 65 72 67 2c 20 44 | 65 70 61 72 74 6d 65 6e |dberg, D|epartmen|
|00000220| 74 20 6f 66 20 50 68 79 | 73 69 63 73 0a 25 20 20 |t of Phy|sics.%  |
|00000230| 20 20 20 20 20 20 20 20 | 20 20 54 45 43 48 4e 49 |        |  TECHNI|
|00000240| 4f 4e 2c 20 33 32 30 30 | 30 20 48 61 69 66 61 2c |ON, 3200|0 Haifa,|
|00000250| 20 49 73 72 61 65 6c 2e | 0a 25 20 20 20 20 45 6d | Israel.|.%    Em|
|00000260| 65 72 67 65 6e 63 79 20 | 70 68 6f 6e 65 3a 20 28 |ergency |phone: (|
|00000270| 39 37 32 29 34 2d 32 39 | 33 36 36 33 0a 25 20 20 |972)4-29|3663.%  |
|00000280| 20 20 20 0a 25 20 57 48 | 41 54 20 49 54 20 44 4f |   .% WH|AT IT DO|
|00000290| 45 53 3a 0a 25 20 20 20 | 2a 20 52 65 76 65 72 73 |ES:.%   |* Revers|
|000002a0| 65 73 20 6f 72 64 65 72 | 20 6f 66 20 6c 65 74 74 |es order| of lett|
|000002b0| 65 72 73 20 69 6e 20 77 | 6f 72 64 73 2e 0a 25 20 |ers in w|ords..% |
|000002c0| 20 20 2a 20 52 65 76 65 | 72 73 65 73 20 6f 72 64 |  * Reve|rses ord|
|000002d0| 65 72 20 6f 66 20 77 6f | 72 64 73 20 6f 6e 20 61 |er of wo|rds on a|
|000002e0| 20 6c 69 6e 65 20 28 73 | 65 74 73 20 72 69 67 68 | line (s|ets righ|
|000002f0| 74 2d 74 6f 2d 6c 65 66 | 74 29 2e 0a 25 0a 25 20 |t-to-lef|t)..%.% |
|00000300| 55 73 65 20 69 74 20 61 | 73 20 66 6f 6c 6c 6f 77 |Use it a|s follow|
|00000310| 73 3a 0a 25 20 5c 64 6f | 63 75 6d 65 6e 74 73 74 |s:.% \do|cumentst|
|00000320| 79 6c 65 5b 73 65 6d 69 | 74 69 63 2c 2e 2e 2e 5d |yle[semi|tic,...]|
|00000330| 7b 2e 2e 2e 7d 0a 25 20 | 20 20 20 20 20 20 20 20 |{...}.% |        |
|00000340| 20 20 2e 0a 25 20 20 20 | 20 20 20 20 20 20 20 20 |  ..%   |        |
|00000350| 2e 0a 25 20 20 20 20 20 | 20 20 20 20 20 20 2e 0a |..%     |      ..|
|00000360| 25 20 4e 6f 72 6d 61 6c | 20 74 65 78 74 20 68 65 |% Normal| text he|
|00000370| 72 65 0a 25 20 5c 62 65 | 67 69 6e 7b 73 65 6d 69 |re.% \be|gin{semi|
|00000380| 74 69 63 7d 20 20 20 20 | 20 0a 25 20 48 65 62 72 |tic}    | .% Hebr|
|00000390| 65 77 20 74 65 78 74 20 | 69 6e 20 60 6e 61 74 75 |ew text |in `natu|
|000003a0| 72 61 6c 20 64 69 72 65 | 63 74 69 6f 6e 27 2e 20 |ral dire|ction'. |
|000003b0| 20 54 79 70 65 20 48 65 | 62 72 65 77 20 70 61 72 | Type He|brew par|
|000003c0| 61 67 72 61 70 68 20 61 | 73 0a 25 20 79 6f 75 20 |agraph a|s.% you |
|000003d0| 77 6f 75 6c 64 20 61 6e | 79 20 60 6e 6f 72 6d 61 |would an|y `norma|
|000003e0| 6c 27 20 70 61 72 61 67 | 72 61 70 68 20 69 6e 20 |l' parag|raph in |
|000003f0| 61 20 4c 61 54 65 58 20 | 64 6f 63 75 6d 65 6e 74 |a LaTeX |document|
|00000400| 2e 0a 25 20 5c 65 6e 64 | 7b 73 65 6d 69 74 69 63 |..% \end|{semitic|
|00000410| 7d 20 20 0a 25 20 4d 6f | 72 65 20 74 65 78 74 20 |}  .% Mo|re text |
|00000420| 2e 2e 2e 0a 25 20 20 20 | 20 20 20 20 20 20 20 20 |....%   |        |
|00000430| 2e 0a 25 20 20 20 20 20 | 20 20 20 20 20 20 2e 0a |..%     |      ..|
|00000440| 25 20 20 20 20 20 20 20 | 20 20 20 20 2e 0a 25 0a |%       |    ..%.|
|00000450| 25 20 4e 4f 54 45 53 3a | 0a 25 20 20 20 2a 20 54 |% NOTES:|.%   * T|
|00000460| 68 65 72 65 20 69 73 20 | 6e 6f 77 20 6e 6f 20 6e |here is |now no n|
|00000470| 65 65 64 20 74 6f 20 70 | 75 74 20 6f 6e 6c 79 20 |eed to p|ut only |
|00000480| 31 20 68 65 62 72 65 77 | 20 77 6f 72 64 20 6f 6e |1 hebrew| word on|
|00000490| 20 61 20 6c 69 6e 65 2e | 20 54 72 65 61 74 20 74 | a line.| Treat t|
|000004a0| 68 65 0a 25 20 20 20 20 | 20 48 65 62 72 65 77 20 |he.%    | Hebrew |
|000004b0| 74 65 78 74 20 61 73 20 | 60 6e 6f 72 6d 61 6c 27 |text as |`normal'|
|000004c0| 20 74 65 78 74 2e 20 20 | 20 20 20 20 20 20 20 20 | text.  |        |
|000004d0| 20 20 20 20 20 20 20 20 | 20 20 0a 25 20 20 20 2a |        |  .%   *|
|000004e0| 20 54 68 65 72 65 20 63 | 61 6e 20 62 65 20 6e 6f | There c|an be no|
|000004f0| 20 73 70 61 63 65 20 62 | 65 74 77 65 65 6e 20 60 | space b|etween `|
|00000500| 5c 65 6e 64 27 20 61 6e | 64 20 60 7b 73 65 6d 69 |\end' an|d `{semi|
|00000510| 74 69 63 7d 27 20 69 6e | 0a 25 20 20 20 20 20 60 |tic}' in|.%     `|
|00000520| 5c 65 6e 64 7b 73 65 6d | 69 74 69 63 7d 27 20 28 |\end{sem|itic}' (|
|00000530| 73 69 6d 69 6c 61 72 20 | 74 6f 20 74 68 65 20 76 |similar |to the v|
|00000540| 65 72 62 61 74 69 6d 20 | 65 6e 76 69 72 6f 6e 6d |erbatim |environm|
|00000550| 65 6e 74 29 2e 0a 25 20 | 20 20 2a 20 54 6f 20 6b |ent)..% |  * To k|
|00000560| 65 65 70 20 73 6f 6d 65 | 74 68 69 6e 67 20 74 6f |eep some|thing to|
|00000570| 67 65 74 68 65 72 20 65 | 6e 63 6c 6f 73 65 20 69 |gether e|nclose i|
|00000580| 74 20 69 6e 20 62 72 61 | 63 65 73 2c 20 65 2e 67 |t in bra|ces, e.g|
|00000590| 2e 2c 20 7b 74 65 78 74 | 20 74 6f 67 65 74 68 65 |., {text| togethe|
|000005a0| 72 7d 0a 25 20 20 20 20 | 20 54 68 69 73 20 77 69 |r}.%    | This wi|
|000005b0| 6c 6c 20 73 74 6f 70 20 | 69 74 20 62 65 69 6e 67 |ll stop |it being|
|000005c0| 20 62 72 6f 6b 65 6e 20 | 6f 76 65 72 20 61 20 6c | broken |over a l|
|000005d0| 69 6e 65 20 62 75 74 20 | 74 68 65 20 63 6f 6e 74 |ine but |the cont|
|000005e0| 65 6e 74 73 0a 25 20 20 | 20 20 20 77 69 6c 6c 20 |ents.%  |   will |
|000005f0| 73 74 69 6c 6c 20 62 65 | 20 72 65 76 65 72 73 65 |still be| reverse|
|00000600| 64 2e 20 49 66 20 6d 6f | 72 65 20 74 68 61 6e 20 |d. If mo|re than |
|00000610| 31 20 77 6f 72 64 20 74 | 68 65 6e 20 70 6c 61 63 |1 word t|hen plac|
|00000620| 65 20 61 20 7e 20 62 65 | 74 77 65 65 6e 0a 25 20 |e a ~ be|tween.% |
|00000630| 20 20 20 20 77 6f 72 64 | 73 20 74 6f 20 6d 61 69 |    word|s to mai|
|00000640| 6e 74 61 69 6e 20 73 70 | 61 63 65 2e 0a 25 20 20 |ntain sp|ace..%  |
|00000650| 20 2a 20 54 6f 20 6b 65 | 65 70 20 73 6f 6d 65 74 | * To ke|ep somet|
|00000660| 68 69 6e 67 20 74 6f 67 | 65 74 68 65 72 20 61 6e |hing tog|ether an|
|00000670| 64 20 74 6f 20 53 54 4f | 50 20 49 54 20 42 45 49 |d to STO|P IT BEI|
|00000680| 4e 47 20 52 45 56 45 52 | 53 45 44 20 65 6e 63 6c |NG REVER|SED encl|
|00000690| 6f 73 65 20 69 74 0a 25 | 20 20 20 20 20 69 6e 20 |ose it.%|     in |
|000006a0| 32 20 73 65 74 73 20 6f | 66 20 62 72 61 63 65 73 |2 sets o|f braces|
|000006b0| 2c 20 65 2e 67 2e 2c 0a | 25 20 20 20 20 20 20 20 |, e.g.,.|%       |
|000006c0| 20 7b 7b 24 5c 73 69 6e | 28 5c 74 68 65 74 61 20 | {{$\sin|(\theta |
|000006d0| 2b 20 5c 66 72 61 63 7b | 5c 70 69 7d 7b 32 7d 29 |+ \frac{|\pi}{2})|
|000006e0| 20 3d 20 5c 63 6f 73 20 | 5c 74 68 65 74 61 24 7d | = \cos |\theta$}|
|000006f0| 7d 0a 25 20 20 20 2a 20 | 54 68 65 20 74 65 78 74 |}.%   * |The text|
|00000700| 20 69 73 20 70 72 6f 63 | 65 73 73 65 64 20 69 6e | is proc|essed in|
|00000710| 20 4c 52 20 6d 6f 64 65 | 20 61 6e 64 20 74 68 65 | LR mode| and the|
|00000720| 6e 20 66 6f 72 6d 65 64 | 20 69 6e 74 6f 20 6c 69 |n formed| into li|
|00000730| 6e 65 73 2e 20 41 6e 79 | 74 68 69 6e 67 0a 25 20 |nes. Any|thing.% |
|00000740| 20 20 20 20 74 68 61 74 | 20 73 74 61 72 74 73 20 |    that| starts |
|00000750| 61 20 6e 65 77 20 70 61 | 72 61 67 72 61 70 68 2c |a new pa|ragraph,|
|00000760| 20 65 2e 67 2e 2c 20 64 | 69 73 70 6c 61 79 65 64 | e.g., d|isplayed|
|00000770| 20 6d 61 74 68 73 2c 20 | 77 69 6c 6c 20 63 61 75 | maths, |will cau|
|00000780| 73 65 20 70 72 6f 62 6c | 65 6d 73 2e 0a 25 20 20 |se probl|ems..%  |
|00000790| 20 20 20 54 68 69 73 20 | 61 6c 73 6f 20 6d 65 61 |   This |also mea|
|000007a0| 6e 20 74 68 61 74 20 6e | 6f 20 62 6c 61 6e 6b 20 |n that n|o blank |
|000007b0| 6c 69 6e 65 73 20 63 61 | 6e 20 61 70 70 65 61 72 |lines ca|n appear|
|000007c0| 20 69 6e 20 74 68 65 20 | 65 6e 76 69 72 6f 6e 6d | in the |environm|
|000007d0| 65 6e 74 2e 0a 25 20 20 | 20 2a 20 41 20 6e 65 77 |ent..%  | * A new|
|000007e0| 20 70 61 72 61 67 72 61 | 70 68 20 69 73 20 73 74 | paragra|ph is st|
|000007f0| 61 72 74 65 64 20 62 65 | 66 6f 72 65 20 61 6e 64 |arted be|fore and|
|00000800| 20 61 66 74 65 72 20 74 | 68 65 20 73 65 6d 69 74 | after t|he semit|
|00000810| 69 63 20 65 6e 76 69 72 | 6f 6e 6d 65 6e 74 2e 0a |ic envir|onment..|
|00000820| 0a 5c 66 6f 6e 74 5c 69 | 76 72 69 74 3d 72 65 64 |.\font\i|vrit=red|
|00000830| 69 73 31 30 0a 5c 68 79 | 70 68 65 6e 63 68 61 72 |is10.\hy|phenchar|
|00000840| 5c 69 76 72 69 74 3d 2d | 31 0a 5c 66 6f 6e 74 5c |\ivrit=-|1.\font\|
|00000850| 68 65 62 62 66 3d 72 65 | 64 69 73 62 78 31 30 0a |hebbf=re|disbx10.|
|00000860| 5c 68 79 70 68 65 6e 63 | 68 61 72 5c 68 65 62 62 |\hyphenc|har\hebb|
|00000870| 66 3d 2d 31 0a 5c 66 6f | 6e 74 5c 68 65 62 73 6c |f=-1.\fo|nt\hebsl|
|00000880| 3d 72 65 64 69 73 73 31 | 30 0a 5c 68 79 70 68 65 |=rediss1|0.\hyphe|
|00000890| 6e 63 68 61 72 5c 68 65 | 62 73 6c 3d 2d 31 0a 0a |nchar\he|bsl=-1..|
|000008a0| 25 20 54 68 65 20 74 77 | 6f 20 6c 69 6e 65 73 20 |% The tw|o lines |
|000008b0| 62 65 6c 6f 77 20 61 72 | 65 20 74 61 6b 65 6e 20 |below ar|e taken |
|000008c0| 66 72 6f 6d 20 44 2e 20 | 4b 6e 75 74 68 20 61 6e |from D. |Knuth an|
|000008d0| 64 20 50 2e 20 4d 61 63 | 4b 61 79 20 20 20 20 20 |d P. Mac|Kay     |
|000008e0| 20 20 20 20 0a 25 20 20 | 20 20 20 54 75 47 42 6f |    .%  |   TuGBo|
|000008f0| 61 74 20 76 6f 6c 2e 38 | 2c 23 31 2c 70 61 67 65 |at vol.8|,#1,page|
|00000900| 20 31 34 2e 20 20 20 20 | 20 20 20 20 20 0a 25 20 | 14.    |     .% |
|00000910| 55 73 65 20 5c 68 65 62 | 72 65 77 7b 68 65 62 72 |Use \heb|rew{hebr|
|00000920| 65 77 7e 74 65 78 74 7d | 20 66 6f 72 20 73 68 6f |ew~text}| for sho|
|00000930| 72 74 20 68 65 62 72 65 | 77 20 70 61 73 73 61 67 |rt hebre|w passag|
|00000940| 65 73 2e 0a 5c 67 64 65 | 66 5c 68 65 62 72 65 77 |es..\gde|f\hebrew|
|00000950| 23 31 5c 72 65 6c 61 78 | 7b 7b 5c 69 76 72 69 74 |#1\relax|{{\ivrit|
|00000960| 5c 72 65 66 6c 65 63 74 | 23 31 5c 65 6d 70 74 79 |\reflect|#1\empty|
|00000970| 5c 74 63 65 6c 66 65 72 | 7d 7d 0a 5c 67 64 65 66 |\tcelfer|}}.\gdef|
|00000980| 5c 72 65 66 6c 65 63 74 | 23 31 23 32 5c 74 63 65 |\reflect|#1#2\tce|
|00000990| 6c 66 65 72 7b 5c 69 66 | 78 23 31 5c 65 6d 70 74 |lfer{\if|x#1\empt|
|000009a0| 79 5c 65 6c 73 65 5c 72 | 65 66 6c 65 63 74 23 32 |y\else\r|eflect#2|
|000009b0| 5c 74 63 65 6c 66 65 72 | 23 31 5c 66 69 7d 0a 0a |\tcelfer|#1\fi}..|
|000009c0| 5c 64 65 66 5c 69 76 72 | 63 6f 6e 63 61 74 23 31 |\def\ivr|concat#1|
|000009d0| 23 32 7b 23 31 20 23 32 | 7d 20 20 0a 0a 5c 6e 65 |#2{#1 #2|}  ..\ne|
|000009e0| 77 62 6f 78 5c 69 76 72 | 62 6f 78 20 20 20 20 20 |wbox\ivr|box     |
|000009f0| 20 20 20 25 20 54 68 65 | 20 53 65 6d 69 74 69 63 |   % The| Semitic|
|00000a00| 20 62 6f 78 20 74 6f 20 | 74 65 73 74 20 66 75 6c | box to |test ful|
|00000a10| 6c 20 6c 69 6e 65 20 63 | 6f 6e 64 69 74 69 6f 6e |l line c|ondition|
|00000a20| 0a 5c 6e 65 77 62 6f 78 | 5c 69 76 72 73 74 72 62 |.\newbox|\ivrstrb|
|00000a30| 6f 78 20 20 20 20 20 25 | 20 54 68 65 20 62 6f 78 |ox     %| The box|
|00000a40| 20 74 6f 20 68 6f 6c 64 | 20 74 68 65 20 63 75 72 | to hold| the cur|
|00000a50| 72 65 6e 74 20 53 65 6d | 69 74 69 63 20 73 74 72 |rent Sem|itic str|
|00000a60| 69 6e 67 0a 5c 73 65 74 | 62 6f 78 5c 69 76 72 62 |ing.\set|box\ivrb|
|00000a70| 6f 78 3d 5c 68 62 6f 78 | 7b 7d 0a 5c 73 65 74 62 |ox=\hbox|{}.\setb|
|00000a80| 6f 78 5c 69 76 72 73 74 | 72 62 6f 78 3d 5c 68 62 |ox\ivrst|rbox=\hb|
|00000a90| 6f 78 7b 7d 0a 0a 5c 64 | 65 66 5c 40 65 73 65 6d |ox{}..\d|ef\@esem|
|00000aa0| 69 74 69 63 7b 5c 65 6e | 64 7b 73 65 6d 69 74 69 |itic{\en|d{semiti|
|00000ab0| 63 7d 7d 20 20 25 20 55 | 73 65 64 20 66 6f 72 20 |c}}  % U|sed for |
|00000ac0| 63 68 65 63 6b 69 6e 67 | 20 65 6e 64 20 6f 66 20 |checking| end of |
|00000ad0| 65 6e 76 69 72 6f 6e 6d | 65 6e 74 0a 0a 5c 64 65 |environm|ent..\de|
|00000ae0| 66 5c 73 65 6d 69 74 69 | 63 7b 5c 70 61 72 5c 69 |f\semiti|c{\par\i|
|00000af0| 76 72 69 74 5c 6c 65 74 | 5c 62 66 3d 5c 68 65 62 |vrit\let|\bf=\heb|
|00000b00| 62 66 5c 6c 65 74 5c 73 | 6c 3d 5c 68 65 62 73 6c |bf\let\s|l=\hebsl|
|00000b10| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 5c 70 |.       |      \p|
|00000b20| 61 72 69 6e 64 65 6e 74 | 3d 30 70 74 5c 40 6d 61 |arindent|=0pt\@ma|
|00000b30| 6b 65 73 65 6d 69 74 69 | 63 6c 69 6e 65 7d 0a 5c |kesemiti|cline}.\|
|00000b40| 64 65 66 5c 65 6e 64 73 | 65 6d 69 74 69 63 7b 5c |def\ends|emitic{\|
|00000b50| 70 61 72 7d 0a 0a 25 20 | 5c 40 6d 61 6b 65 73 65 |par}..% |\@makese|
|00000b60| 6d 69 74 69 63 20 6c 69 | 6e 65 20 72 65 61 64 73 |mitic li|ne reads|
|00000b70| 20 69 6e 20 61 20 77 6f | 72 64 20 61 74 20 61 20 | in a wo|rd at a |
|00000b80| 74 69 6d 65 20 28 61 20 | 77 6f 72 64 20 69 73 20 |time (a |word is |
|00000b90| 74 61 6b 65 6e 20 61 73 | 20 74 65 78 74 0a 25 20 |taken as| text.% |
|00000ba0| 74 65 72 6d 69 6e 61 74 | 65 64 20 62 79 20 31 20 |terminat|ed by 1 |
|00000bb0| 6f 72 20 6d 6f 72 65 20 | 73 70 61 63 65 73 29 2e |or more |spaces).|
|00000bc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000bd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 0a 25 |        |      .%|
|00000be0| 20 49 74 20 77 69 6c 6c | 20 74 68 65 6e 20 74 61 | It will| then ta|
|00000bf0| 6b 65 20 74 68 69 73 20 | 77 6f 72 64 20 61 6e 64 |ke this |word and|
|00000c00| 20 72 65 76 65 72 73 65 | 20 69 74 20 28 75 73 69 | reverse| it (usi|
|00000c10| 6e 67 20 5c 72 65 66 6c | 65 63 74 29 20 61 6e 64 |ng \refl|ect) and|
|00000c20| 20 61 64 64 20 69 74 0a | 25 20 74 6f 20 74 68 65 | add it.|% to the|
|00000c30| 20 46 52 4f 4e 54 20 6f | 66 20 74 68 65 20 6c 69 | FRONT o|f the li|
|00000c40| 6e 65 20 62 65 69 6e 67 | 20 6d 61 64 65 2e 20 49 |ne being| made. I|
|00000c50| 66 20 74 68 69 73 20 77 | 6f 72 64 20 6d 61 6b 65 |f this w|ord make|
|00000c60| 73 20 74 68 65 20 6c 69 | 6e 65 20 74 6f 6f 0a 25 |s the li|ne too.%|
|00000c70| 20 6c 6f 6e 67 20 28 3e | 20 5c 6c 69 6e 65 77 69 | long (>| \linewi|
|00000c80| 64 74 68 29 20 74 68 65 | 6e 20 74 68 65 20 6c 69 |dth) the|n the li|
|00000c90| 6e 65 20 69 73 20 62 72 | 6f 6b 65 6e 20 62 65 66 |ne is br|oken bef|
|00000ca0| 6f 72 65 20 74 68 69 73 | 20 77 6f 72 64 20 61 6e |ore this| word an|
|00000cb0| 64 20 74 68 69 73 0a 25 | 20 77 6f 72 64 20 69 73 |d this.%| word is|
|00000cc0| 20 61 64 64 65 64 20 74 | 6f 20 74 68 65 20 6e 65 | added t|o the ne|
|00000cd0| 78 74 20 6c 69 6e 65 2e | 0a 0a 5c 64 65 66 5c 40 |xt line.|..\def\@|
|00000ce0| 6d 61 6b 65 73 65 6d 69 | 74 69 63 6c 69 6e 65 23 |makesemi|ticline#|
|00000cf0| 31 20 7b 5c 64 65 66 5c | 40 77 6f 72 64 7b 23 31 |1 {\def\|@word{#1|
|00000d00| 7d 5c 72 65 6c 61 78 0a | 20 20 20 20 20 5c 69 66 |}\relax.|     \if|
|00000d10| 78 5c 40 77 6f 72 64 5c | 65 6d 70 74 79 20 20 20 |x\@word\|empty   |
|00000d20| 20 20 20 20 20 20 20 20 | 20 20 20 20 25 20 72 65 |        |    % re|
|00000d30| 6d 6f 76 65 73 20 43 52 | 0a 20 20 20 20 20 20 20 |moves CR|.       |
|00000d40| 20 5c 6c 65 74 5c 6e 65 | 78 74 3d 5c 40 6d 61 6b | \let\ne|xt=\@mak|
|00000d50| 65 73 65 6d 69 74 69 63 | 6c 69 6e 65 0a 20 20 20 |esemitic|line.   |
|00000d60| 20 20 5c 65 6c 73 65 0a | 20 20 20 20 20 20 20 20 |  \else.|        |
|00000d70| 5c 69 66 78 5c 40 65 73 | 65 6d 69 74 69 63 5c 40 |\ifx\@es|emitic\@|
|00000d80| 77 6f 72 64 20 20 20 20 | 20 20 20 20 20 25 20 69 |word    |     % i|
|00000d90| 2e 65 2e 2c 20 72 65 61 | 64 20 69 6e 20 5c 65 6e |.e., rea|d in \en|
|00000da0| 64 7b 73 65 6d 69 74 69 | 63 7d 0a 20 20 20 20 20 |d{semiti|c}.     |
|00000db0| 20 20 20 20 20 20 5c 6c | 65 74 5c 6e 65 78 74 3d |      \l|et\next=|
|00000dc0| 5c 40 65 73 65 6d 69 74 | 69 63 20 20 20 20 20 20 |\@esemit|ic      |
|00000dd0| 25 20 77 69 6c 6c 20 66 | 69 6e 69 73 68 20 6f 66 |% will f|inish of|
|00000de0| 66 20 73 65 6d 69 74 69 | 63 20 65 6e 76 69 72 6f |f semiti|c enviro|
|00000df0| 6e 6d 65 6e 74 0a 20 20 | 20 20 20 20 20 20 20 20 |nment.  |        |
|00000e00| 20 5c 68 62 6f 78 20 74 | 6f 5c 68 73 69 7a 65 7b | \hbox t|o\hsize{|
|00000e10| 5c 68 66 69 6c 20 5c 75 | 6e 68 62 6f 78 5c 69 76 |\hfil \u|nhbox\iv|
|00000e20| 72 73 74 72 62 6f 78 20 | 5c 75 6e 73 6b 69 70 7d |rstrbox |\unskip}|
|00000e30| 0a 20 20 20 20 20 20 20 | 20 5c 65 6c 73 65 20 20 |.       | \else  |
|00000e40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000e50| 20 20 20 20 20 25 20 73 | 65 6d 69 74 69 63 20 77 |     % s|emitic w|
|00000e60| 6f 72 64 0a 20 20 20 20 | 20 20 20 20 20 20 5c 69 |ord.    |      \i|
|00000e70| 66 64 69 6d 5c 77 64 5c | 69 76 72 73 74 72 62 6f |fdim\wd\|ivrstrbo|
|00000e80| 78 3d 30 70 74 20 20 20 | 25 20 69 2e 65 2e 2c 20 |x=0pt   |% i.e., |
|00000e90| 63 6f 6e 74 61 69 6e 73 | 20 6e 6f 74 68 69 6e 67 |contains| nothing|
|00000ea0| 20 74 68 65 72 65 66 6f | 72 65 0a 20 20 20 20 20 | therefo|re.     |
|00000eb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000ec0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 25 |        |       %|
|00000ed0| 20 61 74 20 62 65 67 69 | 6e 6e 69 6e 67 20 6f 66 | at begi|nning of|
|00000ee0| 20 6c 69 6e 65 0a 20 20 | 20 20 20 20 20 20 20 20 | line.  |        |
|00000ef0| 20 20 5c 73 65 74 62 6f | 78 5c 69 76 72 62 6f 78 |  \setbo|x\ivrbox|
|00000f00| 3d 5c 68 62 6f 78 7b 5c | 72 65 66 6c 65 63 74 23 |=\hbox{\|reflect#|
|00000f10| 31 5c 65 6d 70 74 79 5c | 74 63 65 6c 66 65 72 7d |1\empty\|tcelfer}|
|00000f20| 0a 20 20 20 20 20 20 20 | 20 20 20 5c 65 6c 73 65 |.       |   \else|
|00000f30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000f40| 20 20 20 20 20 25 20 61 | 64 64 20 72 65 76 65 72 |     % a|dd rever|
|00000f50| 73 65 64 20 77 6f 72 64 | 20 74 6f 20 46 52 4f 4e |sed word| to FRON|
|00000f60| 54 20 6f 66 20 6c 69 6e | 65 2e 0a 20 20 20 20 20 |T of lin|e..     |
|00000f70| 20 20 20 20 20 20 20 5c | 73 65 74 62 6f 78 5c 69 |       \|setbox\i|
|00000f80| 76 72 62 6f 78 3d 5c 68 | 62 6f 78 7b 5c 69 76 72 |vrbox=\h|box{\ivr|
|00000f90| 63 6f 6e 63 61 74 7b 5c | 72 65 66 6c 65 63 74 23 |concat{\|reflect#|
|00000fa0| 31 5c 65 6d 70 74 79 5c | 74 63 65 6c 66 65 72 0a |1\empty\|tcelfer.|
|00000fb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000fc0| 20 20 7d 7b 20 5c 75 6e | 68 63 6f 70 79 5c 69 76 |  }{ \un|hcopy\iv|
|00000fd0| 72 73 74 72 62 6f 78 7d | 7d 0a 20 20 20 20 20 20 |rstrbox}|}.      |
|00000fe0| 20 20 20 20 5c 66 69 0a | 20 20 20 20 20 20 20 20 |    \fi.|        |
|00000ff0| 20 20 5c 6c 65 74 5c 6e | 65 78 74 3d 5c 40 6d 61 |  \let\n|ext=\@ma|
|00001000| 6b 65 73 65 6d 69 74 69 | 63 6c 69 6e 65 20 20 20 |kesemiti|cline   |
|00001010| 20 20 25 20 77 69 6c 6c | 20 6c 6f 6f 70 20 61 72 |  % will| loop ar|
|00001020| 6f 75 6e 64 20 79 65 74 | 20 61 67 61 69 6e 0a 20 |ound yet| again. |
|00001030| 20 20 20 20 20 20 20 20 | 20 5c 69 66 64 69 6d 20 |        | \ifdim |
|00001040| 5c 6c 69 6e 65 77 69 64 | 74 68 20 3c 20 5c 77 64 |\linewid|th < \wd|
|00001050| 5c 69 76 72 62 6f 78 20 | 25 20 6c 69 6e 65 20 6e |\ivrbox |% line n|
|00001060| 6f 77 20 74 6f 6f 20 6c | 6f 6e 67 0a 20 20 20 20 |ow too l|ong.    |
|00001070| 20 20 20 20 20 20 20 20 | 20 5c 68 62 6f 78 20 74 |        | \hbox t|
|00001080| 6f 5c 6c 69 6e 65 77 69 | 64 74 68 7b 5c 68 73 73 |o\linewi|dth{\hss|
|00001090| 20 20 20 20 20 25 20 72 | 65 6d 6f 76 65 20 5c 68 |     % r|emove \h|
|000010a0| 73 73 20 74 6f 20 6a 75 | 73 74 69 66 79 0a 20 20 |ss to ju|stify.  |
|000010b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000010c0| 20 20 5c 75 6e 68 63 6f | 70 79 5c 69 76 72 73 74 |  \unhco|py\ivrst|
|000010d0| 72 62 6f 78 7d 0a 20 20 | 20 20 20 20 20 20 20 20 |rbox}.  |        |
|000010e0| 20 20 20 5c 73 65 74 62 | 6f 78 5c 69 76 72 73 74 |   \setb|ox\ivrst|
|000010f0| 72 62 6f 78 3d 5c 68 62 | 6f 78 7b 5c 72 65 66 6c |rbox=\hb|ox{\refl|
|00001100| 65 63 74 23 31 5c 65 6d | 70 74 79 5c 74 63 65 6c |ect#1\em|pty\tcel|
|00001110| 66 65 72 7d 0a 20 20 20 | 20 20 20 20 20 20 20 5c |fer}.   |       \|
|00001120| 65 6c 73 65 20 20 20 20 | 20 20 20 20 20 20 20 20 |else    |        |
|00001130| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 25 20 |        |      % |
|00001140| 73 65 74 20 73 74 6f 72 | 65 20 73 74 72 69 6e 67 |set stor|e string|
|00001150| 20 74 6f 20 77 68 6f 6c | 65 20 6c 69 6e 65 0a 20 | to whol|e line. |
|00001160| 20 20 20 20 20 20 20 20 | 20 20 20 20 5c 73 65 74 |        |    \set|
|00001170| 62 6f 78 5c 69 76 72 73 | 74 72 62 6f 78 3d 5c 68 |box\ivrs|trbox=\h|
|00001180| 62 6f 78 7b 5c 75 6e 68 | 63 6f 70 79 5c 69 76 72 |box{\unh|copy\ivr|
|00001190| 62 6f 78 7d 5c 72 65 6c | 61 78 0a 20 20 20 20 20 |box}\rel|ax.     |
|000011a0| 20 20 20 20 20 5c 66 69 | 20 20 20 20 20 20 20 20 |     \fi|        |
|000011b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000011c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000011d0| 20 20 20 20 20 20 0a 20 | 20 20 20 20 20 20 20 5c |      . |       \|
|000011e0| 66 69 0a 20 20 20 20 20 | 20 5c 66 69 5c 6e 65 78 |fi.     | \fi\nex|
|000011f0| 74 7d 0a 25 25 25 25 25 | 25 25 25 25 25 25 25 25 |t}.%%%%%|%%%%%%%%|
|00001200| 25 25 25 25 25 25 25 25 | 25 25 25 25 25 43 75 74 |%%%%%%%%|%%%%%Cut|
|00001210| 20 77 69 74 68 20 61 20 | 73 68 61 72 70 20 61 78 | with a |sharp ax|
|00001220| 65 20 68 65 72 65 25 25 | 25 25 25 25 25 25 25 25 |e here%%|%%%%%%%%|
|00001230| 25 25 25 25 25 25 25 25 | 25 25 25 25 25 25 25 25 |%%%%%%%%|%%%%%%%%|
|00001240| 25 25 25 0a 0a 0a       |                         |%%%...  |        |
+--------+-------------------------+-------------------------+--------+--------+